I was scrolling through stats memes on Google then came across one that mentioned using R in stats and it showed a picture that said “Hackerman”, from that i decided to share my feelings of trying to learn R while having to complete this project.
library(magick)
meme <- image_read("https://i.kym-cdn.com/entries/icons/original/000/021/464/14608107_1180665285312703_1558693314_n.jpg") %>%
image_scale(450) %>% # Getting the image
image_annotate(text = "Me with no R experience", font = "Impact", size = "30", gravity = "North", color = "Black") %>% # applying the text
image_annotate(text = "Me with no R experience", font = "Impact", size = "30", gravity = "North", color = "White") %>%
image_annotate(text = "Trying to make a meme", font = "Impact", size = "30", gravity = "South", color = "Black") %>%
image_annotate(text = "Trying to make a meme", font = "Impact", size = "30", gravity = "South", color = "White")
canvas <- image_blank(450, 80, "Black") #
final <- image_append(c(meme, canvas), stack = TRUE) %>%
image_annotate("PAIN", font = "Georgia Serif", size = "55", gravity = "South", color = "White")
image_write(final, "my_meme.png") # Image file conversion
Theres not much deep thought and motivation for this, i just thought it would be funny to show the progression of a “gymbro” and how he discovers creatine and gets much stronger.
library(magick)
skinny <- image_read("https://preview.free3d.com/img/2018/09/2174892047389951922/r04b2k6q.jpg") # Importing all the images for the animated gif
light <- image_read("https://www.dellanave.com/wp-content/uploads/2013/08/stage-one-deadlift-clean-and-press-07072011.jpg")
creatine <- image_read("https://www.shutterstock.com/image-photo/word-creatine-written-on-white-260nw-2173955809.jpg")
heavy <- image_read("https://www.strongfirst.com/wordpress/wp-content/uploads/2020/10/StrongFirst-heavy-deadlift.jpg") %>%
image_modulate(brightness = 300) # Image was too dark
the_gif <- image_resize(c(skinny, light, creatine, heavy), "300x300!") %>% # This is the making of the gif and combining all the images
image_annotate("4 stages of a gymbro:", size = 25, gravity = "North", color = "Crimson", font = "Comic Sans") %>%
image_morph(frames = 25) %>%
image_animate(optimize = TRUE)
image_write(the_gif, "my_animation.gif") # File conversion
body {background-color: #98FB98}
h1 {text-align: center; font-family: 'Lobster', cursive; color: #98FB98; background-color: #4D4D4D; padding: 30px; margin: 20px}
h2 {text-align: center; font-family: 'lobster', cursive; color: #98FB98; background-color: #4D4D4D; padding: 10px; margin: 20px}
p{font-weight: bold}